home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b1.d64 / value.l < prev    next >
Text File  |  2007-02-28  |  261b  |  12 lines
  1. 9000 //
  2. 9010 FUNC VALUE(S$) CLOSED
  3. 9020 // INTEGER VALUES ONLY
  4. 9030 LENGTH:=LEN(S$)
  5. 9040 ONES:=ORD(S$(LENGTH))-ORD("0")
  6. 9050 IF LENGTH=1 THEN
  7. 9060 RETURN ONES
  8. 9070 ELSE 
  9. 9080 RETURN ONES+VALUE(S$(1:LENGTH-1))*10 // RECURSIVE CALL
  10. 9090 ENDIF 
  11. 9100 ENDFUNC VALUE
  12.